    Public Function ConvertToBinary(ByVal number As Long, ByVal bits As _
                    Integer) As String
      ' Przeznaczenie: przeksztacenie liczby na tekst 
      '      bdcy binarn reprezentacj tej liczby
      '
      ' Parametry:
      '  number liczba dziesitna do przeksztacenia 
      '         zapisana przy uyciu typu long
      '  bits  liczba bitw, ktre maj zosta pokazane
      '
      ' Zwracana warto:
      '  string binarna reprezentacja liczby
      '
      Dim Length As Integer ' dugo acucha = liczba bitw do
                            ' wywietlenia
      Dim One As Integer, power As Long ' zmienne pomocnicze
      Dim bin As String     ' acuch binarny

      Length = bits         ' Zapisujemy liczb bitw

      While Length >= 0
        power = 2 ^ Length
        One = CInt(number \ power) ' Dzielimy liczb przez odpowiedni
                                   ' potg
        If One Then
          bin += "1"     ' Jeli jest wystarczajco dua
        Else
          bin += "0"
        End If
        number = number Mod power ' Pobieramy reszt z dzielenia
        Length -= 1
      End While
      ' Ponisze pozwala nam zmieci si w zaoonej liczbie bitw
      ConvertToBinary = Microsoft.VisualBasic.Right(bin, bits)
    End Function
